﻿
Namespace LightSwitchApplication

    Public Class ManageUsers


        Private Sub UserListAddAndEditNew_Execute()
            ' Write your code here.
            Me.Application.ShowCreateNewUser()
        End Sub

        Private Sub ShowMap_Execute()
            ' Write your code here.
            Me.Application.ShowMapScreen(Me.Users.SelectedItem.FullAddress)
        End Sub

        Private Sub ShowMap_CanExecute(ByRef result As Boolean)
            ' Write your code here.
            If Me.Users.SelectedItem Is Nothing Then
                result = False
                Exit Sub
            End If
            result = (Me.Users.SelectedItem.FullAddress <> "")
        End Sub
    End Class

End Namespace
